(set #InstallWhat "What do you want to install ? \n The font 'XEN' will be installed in any case.")
(set #InstallChoice1 "Main program")
(set #InstallChoice2 "Documentation")
(set #SelectMainDir "Select the directory where to copy the Main program.")
(set #CopyingMainProg "Copying the Main program...")
(set #CopyFont "Copying the Font 'XEN' to Fonts:")
(set #SelectDocDir "Select the directory where to copy GUIDE-documentations.")
(set #CopyingDoc "Copying documentation...")
)
)
(if (= @language "deutsch")
(
(set #InstallWhat "Was möchten Sie installieren ? \n Der Font 'XEN' wird in jedem Falle installiert.")
(set #InstallChoice1 "Hauptprogramm")
(set #InstallChoice2 "Dokumentation")
(set #SelectMainDir "Wählen Sie das Verzeichnis, in das Sie das Hauptprogramm kopieren möchten.")
(set #CopyingMainProg "Kopiere das Hauptprogramm...")
(set #CopyFont "Kopiere den Font 'XEN' nach Fonts:")
(set #SelectDocDir "Wählen Sie das Verzeichnis, in das Sie die GUIDE-Dokumentationen kopieren möchten.")
(set #CopyingDoc "Kopiere die Dokumentation...")
)
)
)
)
;********* Installiere das Hauptprogramm ************************************
;
(procedure InstallMainProg
(
(Message "\n\nEs wird nun das Hauptprogramm,\ndas dazugehörige Icon\nund eine Maskendatei kopiert.")
(set MainDir
(askdir
(prompt #SelectMainDir)
(help @askdir-help)
(default DefDest)
)
)
(copyfiles
(prompt #CopyingMainprog)
(help @copyfiles-help)
(source "LCR")
(dest MainDir)
(infos)
)
(copyfiles
(prompt #CopyingMainprog)
(help @copyfiles-help)
(source "PICX.obj")
(dest MainDir)
(infos)
)
; *** Kopiere ohne Fragen die wichtigen Daten ***
(Message "\n\nEs wird nun der Font 'XEN' kopiert.\nWenn Sie die Installation hier abbrechen,\nist das Programm LCR bereits funktionstüchtig,\njedoch werden die Texte mit dem eingestellten Fenster-Font dargestellt,\nwas nicht immer die optimale Einstellung darstellt.\n\nEs wird empfohlen den Font zu installieren!")
(copyfiles
(prompt #Font)
(help @copyfiles-help)
(source FontSrc)
(all)
(dest FontDest)
)
)
)
;********* Installiere die Anleitung ****************************************
;
(procedure InstallDoc
(
(Message "\n\nEs werden nun die Anleitungen im PowerGuide-Format kopiert.\nZu den Dokumentationen wird noch ein Verzeichnis mit Grafiken kopiert, die für die PowerGuide Dokumentation 'LiesMich' benötigt werden, um den Text mit einer Bebilderung auszustatten.")
(set DocDir
(askdir
(prompt #SelectDocDir)
(help @askdir-help)
(default DokDest)
)
)
(copyfiles
(prompt #CopyingDoc)
(help @copyfiles-help)
(source DokSrc)
(all)
(dest DocDir)
(infos)
)
)
)
;********* Start of the installation program **********************************
